home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / Education / D / Dinosaurs.cpt / Dinosaurs / background_12484.txt next >
Encoding:
Text File  |  1987-11-26  |  2.9 KB  |  149 lines
  1. -- background: 12484 from stack: in
  2. -- bmap block id: 18278
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide card field "Info"
  9.   show card field "Title"
  10. end openCard
  11.  
  12. on closeCard
  13.   hide card field "Info"
  14. end closeCard
  15.  
  16. on mouseUp
  17.   if visible of card field "Info" is true then
  18.     hide card field "Info"
  19.   else
  20.     show card field "Info"
  21.   end if
  22. end mouseUp
  23.  
  24. on DoButton fieldName
  25.   if the OptionKey is up then
  26.     set visible of card field fieldName to not visible of card field fieldName
  27.     if visible of card field fieldName is false then
  28.       answer "Would you like to see one?" with "No" or "Yes"
  29.       if it is not "Yes" then exit DoButton
  30.       set lockscreen to true
  31.       go to next card
  32.       doMenu Find...
  33.       type fieldName & return
  34.       set lockscreen to false
  35.       put msg into junk
  36.       put "Press Return for the next one"
  37.       wait 1 seconds
  38.       put junk
  39.       hide msg
  40.     end if
  41.   else
  42.     set lockscreen to true
  43.     go to next card
  44.     doMenu Find...
  45.     type fieldName & return
  46.     hide msg
  47.     set lockscreen to false
  48.   end if
  49. end DoButton
  50.  
  51.  
  52.  
  53. -- part 1 (button)
  54. -- low flags: 00
  55. -- high flags: 0000
  56. -- rect: left=429 top=299 right=331 bottom=461
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 902 / 902
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: 
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   visual effect scroll left
  68.   go prev card
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 2 (button)
  74. -- low flags: 00
  75. -- high flags: 0000
  76. -- rect: left=471 top=299 right=331 bottom=503
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 26425 / 26425
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: 
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   visual effect scroll right
  88.   go next card
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 3 (button)
  94. -- low flags: 00
  95. -- high flags: 0000
  96. -- rect: left=9 top=298 right=330 bottom=41
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 20098 / 20098
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: 
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   visual effect dissolve
  108.   go home
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 5 (button)
  114. -- low flags: 00
  115. -- high flags: 0000
  116. -- rect: left=239 top=302 right=330 bottom=285
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 32670 / 32670
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: 
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   show all cards
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 8 (button)
  133. -- low flags: 00
  134. -- high flags: 0000
  135. -- rect: left=386 top=299 right=331 bottom=420
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 21449 / 21449
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: 
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   go to first card
  147. end mouseUp
  148.  
  149.